home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha Extra 2004 January / CyberMycha Extra 1-2004 (Poland) (Disc 2).bin / Pippi / gmgs.dir / Internal_18_score--stegrar-stannar.ls < prev    next >
Encoding:
Text File  |  2001-09-05  |  874 b   |  36 lines
  1. property tix, tixV, zP, mmV, horseSprite, firstSwitch
  2. global gmObject
  3.  
  4. on beginSprite me
  5.   firstSwitch = 0
  6.   gmObject.backCounter = 30
  7.   horseSprite = gmObject.horseSprites[4]
  8.   horseSprite.frame = 1
  9.   play frame horseSprite
  10.   tixV = 4
  11.   tix = the ticks + tixV
  12. end
  13.  
  14. on exitFrame me
  15.   if firstSwitch = 0 then
  16.     firstSwitch = 1
  17.     if (gmObject.stopSprite <> sprite(52)) and (gmObject.stopSprite <> sprite(53)) then
  18.       gmObject.makeStopSymbol()
  19.     end if
  20.   else
  21.     if (horseSprite.playing = 0) and (soundBusy(1) = 0) then
  22.       if (gmObject.tiredHorse = 0) and (gmObject.backIsOK = 1) then
  23.         gmObject.changeHorse(3)
  24.       else
  25.         if gmObject.tiredHorse = 1 then
  26.           sound(2).play(member("shoe4", 1))
  27.           repeat while soundBusy(2)
  28.           end repeat
  29.           go("tiredHorse")
  30.         end if
  31.       end if
  32.     end if
  33.   end if
  34.   go(the frame)
  35. end
  36.